﻿Public Class Consulta_pedido
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BT_atras_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_atras.Click
        Response.Redirect("~/Consulta.aspx")
    End Sub

    Protected Sub BT_buscar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BT_buscar.Click
        panel_pedido.Visible = True
        Dim cod_producto As String
        Dim nit_proveedor As String
        Dim fecha_pedido As Date
        Dim cantidad_prod_pedido As Integer
        Dim precio_pedido As Double
        Dim storexpress As New DCStorexpressDataContext
        Try
            Dim query = storexpress.p_buscar_pedido(TB_codigo.Text)

            Dim registro = query.First
            cod_producto = registro.COD_PRODUCTO
            nit_proveedor = registro.NIT_PROVEEDOR
            fecha_pedido = registro.FECHA_PEDIDO
            cantidad_prod_pedido = registro.CANTIDAD_PROD_PEDIDO
            precio_pedido = registro.PRECIO_PEDIDO

            TB_codigop.Text = cod_producto
            TB_nit.Text = nit_proveedor
            TB_fecha.Text = fecha_pedido
            TB_cantidad.Text = cantidad_prod_pedido
            TB_precio.Text = precio_pedido



        Catch ex As InvalidOperationException
            If MsgBox("no hay registros coincidentes") Then
                panel_pedido.Visible = False
            End If

        End Try


    End Sub
End Class